home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
jwlthief.zip
/
FUNAPP.CLS
< prev
next >
Wrap
Text File
|
1990-04-12
|
363b
|
16 lines
/* This space unintentionally left blank */!!
inherit(Application, #FunApp, nil, 2, nil)!!
now(class(FunApp))!!
now(FunApp)!!
/* This method is executed when the application starts up. */
Def init(self, str)
{ init(self:ancestor, str);
mainWindow := defaultNew(FunWindow, "Jewel Thief");
show(mainWindow, 1);
}!!
/* Class Initialization */